inherited frmCadNFP: TfrmCadNFP
  Left = 100
  Top = 62
  Width = 1018
  Height = 680
  Caption = 'Cadastro de NFP'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited pgcCadastro: TcxPageControl
    Width = 1010
    Height = 627
    ActivePage = tbsEdita
    ClientRectBottom = 622
    ClientRectRight = 1005
    inherited tbsLista: TcxTabSheet
      inherited Grid: TcxGrid
        Width = 1000
        Height = 577
        inherited GridDBBandedTableView2: TcxGridDBBandedTableView
          object GridDBBandedTableView2CODIGO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'CODIGO'
            Position.BandIndex = 0
            Position.ColIndex = 0
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2INTERVALO_INI: TcxGridDBBandedColumn
            DataBinding.FieldName = 'INTERVALO_INI'
            Position.BandIndex = 0
            Position.ColIndex = 1
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2INTERVALO_FINAL: TcxGridDBBandedColumn
            DataBinding.FieldName = 'INTERVALO_FINAL'
            Position.BandIndex = 0
            Position.ColIndex = 2
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 3
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2DATA_RETIRADA: TcxGridDBBandedColumn
            DataBinding.FieldName = 'DATA_RETIRADA'
            Position.BandIndex = 0
            Position.ColIndex = 4
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2NOME_PROPRIEDADE: TcxGridDBBandedColumn
            DataBinding.FieldName = 'NOME_PROPRIEDADE'
            Position.BandIndex = 0
            Position.ColIndex = 5
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2ANO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'ANO'
            Position.BandIndex = 0
            Position.ColIndex = 6
            Position.RowIndex = 0
          end
          object GridDBBandedTableView2HISTORICO: TcxGridDBBandedColumn
            DataBinding.FieldName = 'HISTORICO'
            Position.BandIndex = 0
            Position.ColIndex = 7
            Position.RowIndex = 0
          end
        end
      end
      inherited Panel1: TPanel
        Width = 1000
      end
    end
    inherited tbsEdita: TcxTabSheet
      inherited Panel2: TPanel
        Width = 1000
        Height = 594
        object pnlLancto: TPanel
          Left = 1
          Top = 1
          Width = 998
          Height = 131
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 0
          OnEnter = pnlLanctoEnter
          object cxGroupBox1: TcxGroupBox
            Left = 254
            Top = 56
            Caption = 'Intervalo'
            TabOrder = 5
            Height = 66
            Width = 347
            object edtFim: TcxDBSpinEdit
              Left = 125
              Top = 32
              DataBinding.DataField = 'INTERVALO_FINAL'
              DataBinding.DataSource = dsRegistro
              Properties.MaxValue = 1000000000000.000000000000000000
              TabOrder = 1
              Width = 108
            end
            object cxLabel3: TcxLabel
              Left = 125
              Top = 16
              Caption = 'Final'
              Transparent = True
            end
            object edtIni: TcxDBSpinEdit
              Left = 13
              Top = 32
              DataBinding.DataField = 'INTERVALO_INI'
              DataBinding.DataSource = dsRegistro
              Properties.MaxValue = 1000000000000.000000000000000000
              TabOrder = 0
              Width = 108
            end
            object cxLabel2: TcxLabel
              Left = 13
              Top = 16
              Caption = 'Inicial'
              Transparent = True
            end
            object cxButton1: TcxButton
              Left = 241
              Top = 29
              Width = 89
              Height = 25
              Action = ActGerarNFP
              TabOrder = 4
              TabStop = False
            end
          end
          object edtCodigo: TcxDBTextEdit
            Left = 7
            Top = 31
            TabStop = False
            DataBinding.DataField = 'CODIGO'
            DataBinding.DataSource = dsRegistro
            Properties.ReadOnly = True
            Style.Color = clInactiveBorder
            TabOrder = 0
            Width = 65
          end
          object cxLabel1: TcxLabel
            Left = 7
            Top = 14
            Caption = 'C'#243'digo'
            Transparent = True
          end
          object cxDBDateEdit2: TcxDBDateEdit
            Left = 74
            Top = 31
            DataBinding.DataField = 'DATA_RETIRADA'
            DataBinding.DataSource = dsRegistro
            TabOrder = 1
            Width = 88
          end
          object cxLabel16: TcxLabel
            Left = 72
            Top = 14
            Caption = 'Dt. Retirada'
            Transparent = True
          end
          object cbPropriedade: TcxDBLookupComboBox
            Left = 163
            Top = 31
            DataBinding.DataField = 'PROPRIEDADE'
            DataBinding.DataSource = dsRegistro
            Properties.CharCase = ecUpperCase
            Properties.KeyFieldNames = 'CODIGO'
            Properties.ListColumns = <
              item
                FieldName = 'NOME'
              end>
            Properties.ListSource = dsPropriedade
            TabOrder = 2
            Width = 320
          end
          object cxLabel6: TcxLabel
            Left = 163
            Top = 15
            Caption = 'Propriedade'
            Transparent = True
          end
          object btnPropriedade: TcxButtonEdit
            Left = 481
            Top = 31
            TabStop = False
            Properties.Buttons = <
              item
                Caption = 'F9'
                Default = True
                Kind = bkText
              end>
            Properties.ViewStyle = vsButtonsOnly
            TabOrder = 9
            Text = 'btnLogradouro'
            OnClick = btnPropriedadeClick
            Width = 25
          end
          object cxDBSpinEdit1: TcxDBSpinEdit
            Left = 507
            Top = 31
            DataBinding.DataField = 'ANO'
            DataBinding.DataSource = dsRegistro
            Properties.MinValue = 2000.000000000000000000
            TabOrder = 3
            Width = 94
          end
          object cxLabel9: TcxLabel
            Left = 507
            Top = 15
            Caption = 'Ano Base'
            Transparent = True
          end
          object cxDBMemo1: TcxDBMemo
            Left = 8
            Top = 68
            DataBinding.DataField = 'HISTORICO'
            DataBinding.DataSource = dsRegistro
            TabOrder = 4
            Height = 53
            Width = 241
          end
          object cxLabel18: TcxLabel
            Left = 7
            Top = 52
            Caption = 'Hist'#243'rico'
            Transparent = True
          end
        end
        object pnlSubCad: TPanel
          Left = 1
          Top = 132
          Width = 998
          Height = 461
          Align = alClient
          Caption = 'pnlSubCad'
          TabOrder = 1
          object PGCSub1: TcxPageControl
            Left = 1
            Top = 1
            Width = 996
            Height = 459
            ActivePage = tbsEditaComp1
            Align = alClient
            TabOrder = 0
            ClientRectBottom = 454
            ClientRectLeft = 5
            ClientRectRight = 991
            ClientRectTop = 28
            object tbsListaComp1: TcxTabSheet
              Caption = 'Pesquisa'
              ImageIndex = 0
              OnEnter = tbsListaComp1Enter
              object cxGrid1: TcxGrid
                Left = 0
                Top = 0
                Width = 986
                Height = 426
                Align = alClient
                TabOrder = 0
                object cxGridDBTableView1: TcxGridDBTableView
                  NavigatorButtons.ConfirmDelete = False
                  NavigatorButtons.Insert.Visible = False
                  NavigatorButtons.Append.Enabled = False
                  NavigatorButtons.Delete.Visible = False
                  NavigatorButtons.Edit.Visible = False
                  NavigatorButtons.Post.Visible = False
                  NavigatorButtons.Cancel.Visible = False
                  NavigatorButtons.Refresh.Enabled = False
                  NavigatorButtons.Refresh.Visible = False
                  NavigatorButtons.SaveBookmark.Enabled = False
                  NavigatorButtons.SaveBookmark.Visible = False
                  NavigatorButtons.GotoBookmark.Visible = False
                  DataController.DataSource = dsPesquisaComp1
                  DataController.Summary.DefaultGroupSummaryItems = <>
                  DataController.Summary.FooterSummaryItems = <>
                  DataController.Summary.SummaryGroups = <>
                  OptionsBehavior.IncSearch = True
                  OptionsBehavior.NavigatorHints = True
                  OptionsCustomize.ColumnHiding = True
                  OptionsData.CancelOnExit = False
                  OptionsData.Deleting = False
                  OptionsData.DeletingConfirmation = False
                  OptionsData.Editing = False
                  OptionsData.Inserting = False
                  OptionsSelection.CellSelect = False
                  OptionsSelection.InvertSelect = False
                  OptionsSelection.UnselectFocusedRecordOnExit = False
                  OptionsView.Footer = True
                  OptionsView.FooterAutoHeight = True
                  OptionsView.GroupByBox = False
                  OptionsView.GroupFooters = gfAlwaysVisible
                  OptionsView.Indicator = True
                  Preview.Visible = True
                  object cxGridDBTableView1CODIGO: TcxGridDBColumn
                    DataBinding.FieldName = 'CODIGO'
                  end
                  object cxGridDBTableView1NUMERO: TcxGridDBColumn
                    DataBinding.FieldName = 'NUMERO'
                  end
                  object cxGridDBTableView1UTILIZADA: TcxGridDBColumn
                    DataBinding.FieldName = 'UTILIZADA'
                  end
                  object cxGridDBTableView1DATA: TcxGridDBColumn
                    DataBinding.FieldName = 'DATA'
                  end
                  object cxGridDBTableView1TERCEIRO: TcxGridDBColumn
                    DataBinding.FieldName = 'TERCEIRO'
                  end
                  object cxGridDBTableView1NOTA_FISCAL_PRODUTOR: TcxGridDBColumn
                    DataBinding.FieldName = 'NOTA_FISCAL_PRODUTOR'
                  end
                  object cxGridDBTableView1NOME_TERCEIRO: TcxGridDBColumn
                    DataBinding.FieldName = 'NOME_TERCEIRO'
                  end
                  object cxGridDBTableView1NOTA_FISCAL: TcxGridDBColumn
                    DataBinding.FieldName = 'NOTA_FISCAL'
                  end
                  object cxGridDBTableView1NUMERO1: TcxGridDBColumn
                    DataBinding.FieldName = 'NUMERO1'
                  end
                  object cxGridDBTableView1CANCELADA: TcxGridDBColumn
                    DataBinding.FieldName = 'CANCELADA'
                  end
                end
                object cxGridLevel1: TcxGridLevel
                  GridView = cxGridDBTableView1
                end
              end
            end
            object tbsEditaComp1: TcxTabSheet
              Caption = 'Registro'
              ImageIndex = 1
              OnEnter = tbsEditaComp1Enter
              object edtCodigoItem: TcxDBTextEdit
                Left = 6
                Top = 26
                TabStop = False
                DataBinding.DataField = 'CODIGO'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                Properties.ReadOnly = True
                Style.Color = clInactiveBorder
                TabOrder = 0
                Width = 65
              end
              object cxLabel8: TcxLabel
                Left = 6
                Top = 10
                Caption = 'C'#243'digo'
                Transparent = True
              end
              object cxDBTextEdit3: TcxDBTextEdit
                Left = 74
                Top = 26
                DataBinding.DataField = 'NUMERO'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                TabOrder = 1
                Width = 68
              end
              object cxLabel4: TcxLabel
                Left = 72
                Top = 10
                Caption = 'NFP'
                Transparent = True
              end
              object cbTerceiro: TcxDBLookupComboBox
                Left = 146
                Top = 26
                DataBinding.DataField = 'TERCEIRO'
                DataBinding.DataSource = dsRegistroComp1
                Properties.CharCase = ecUpperCase
                Properties.KeyFieldNames = 'CODIGO'
                Properties.ListColumns = <
                  item
                    FieldName = 'NOME'
                  end>
                Properties.ListSource = dsTerceiro
                TabOrder = 2
                Width = 320
              end
              object cxLabel5: TcxLabel
                Left = 146
                Top = 10
                Caption = 'Terceiro'
                Transparent = True
              end
              object btnTerceiro: TcxButtonEdit
                Left = 465
                Top = 26
                TabStop = False
                Properties.Buttons = <
                  item
                    Caption = 'F9'
                    Default = True
                    Kind = bkText
                  end>
                Properties.ViewStyle = vsButtonsOnly
                TabOrder = 8
                Text = 'btnLogradouro'
                OnClick = btnTerceiroClick
                Width = 25
              end
              object cxDBCheckBox1: TcxDBCheckBox
                Left = 5
                Top = 57
                Caption = 'Utilizada'
                DataBinding.DataField = 'UTILIZADA'
                DataBinding.DataSource = dsRegistroComp1
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                TabOrder = 4
                Transparent = True
                Width = 89
              end
              object cxDBDateEdit1: TcxDBDateEdit
                Left = 492
                Top = 26
                DataBinding.DataField = 'DATA'
                DataBinding.DataSource = dsRegistroComp1
                TabOrder = 3
                Width = 88
              end
              object cxLabel7: TcxLabel
                Left = 492
                Top = 9
                Caption = 'Dt. Movimento'
                Transparent = True
              end
              object cxDBCheckBox2: TcxDBCheckBox
                Left = 77
                Top = 57
                Caption = 'Cancelada'
                DataBinding.DataField = 'CANCELADA'
                DataBinding.DataSource = dsRegistroComp1
                Properties.ValueChecked = 'S'
                Properties.ValueUnchecked = 'N'
                TabOrder = 10
                Transparent = True
                Width = 89
              end
            end
          end
        end
      end
    end
  end
  inherited dsPesquisa: TDataSource
    Left = 8
    Top = 332
  end
  inherited dsRegistro: TDataSource
    Left = 56
    Top = 332
  end
  inherited dtEdit: TIBDataSet
    OnNewRecord = dtEditNewRecord
    DeleteSQL.Strings = (
      'delete from nota_fiscal_produtor'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into nota_fiscal_produtor'
      
        '  (ANO, CODIGO, DATA_RETIRADA, HISTORICO, INTERVALO_FINAL, INTER' +
        'VALO_INI, '
      '   PROPRIEDADE)'
      'values'
      
        '  (:ANO, :CODIGO, :DATA_RETIRADA, :HISTORICO, :INTERVALO_FINAL, ' +
        ':INTERVALO_INI, '
      '   :PROPRIEDADE)')
    RefreshSQL.Strings = (
      'Select * '
      'from nota_fiscal_produtor '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select * from nota_fiscal_produtor nfp'
      'where nfp.codigo = :codigo')
    ModifySQL.Strings = (
      'update nota_fiscal_produtor'
      'set'
      '  ANO = :ANO,'
      '  CODIGO = :CODIGO,'
      '  DATA_RETIRADA = :DATA_RETIRADA,'
      '  HISTORICO = :HISTORICO,'
      '  INTERVALO_FINAL = :INTERVALO_FINAL,'
      '  INTERVALO_INI = :INTERVALO_INI,'
      '  PROPRIEDADE = :PROPRIEDADE'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_NOTA_FISCAL_PRODUTOR_ID'
    GeneratorField.ApplyEvent = gamOnPost
    Left = 56
    Top = 292
    object dtEditCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtEditINTERVALO_INI: TIntegerField
      FieldName = 'INTERVALO_INI'
      Origin = '"NOTA_FISCAL_PRODUTOR"."INTERVALO_INI"'
    end
    object dtEditINTERVALO_FINAL: TIntegerField
      FieldName = 'INTERVALO_FINAL'
      Origin = '"NOTA_FISCAL_PRODUTOR"."INTERVALO_FINAL"'
    end
    object dtEditPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"NOTA_FISCAL_PRODUTOR"."PROPRIEDADE"'
    end
    object dtEditDATA_RETIRADA: TDateField
      FieldName = 'DATA_RETIRADA'
      Origin = '"NOTA_FISCAL_PRODUTOR"."DATA_RETIRADA"'
    end
    object dtEditANO: TIntegerField
      FieldName = 'ANO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."ANO"'
    end
    object dtEditHISTORICO: TMemoField
      FieldName = 'HISTORICO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."HISTORICO"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
  end
  inherited dtList: TIBQuery
    SQL.Strings = (
      
        'select nfp.*, (coalesce(pp.insc_estadual,'#39#39')||'#39'-'#39'||coalesce(pp.n' +
        'ome,'#39#39')) nome_propriedade from nota_fiscal_produtor nfp'
      'inner join propriedade pp on (pp.codigo = nfp.propriedade)')
    Left = 8
    Top = 292
    object dtListCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListINTERVALO_INI: TIntegerField
      DisplayLabel = 'Ini'
      FieldName = 'INTERVALO_INI'
      Origin = '"NOTA_FISCAL_PRODUTOR"."INTERVALO_INI"'
    end
    object dtListINTERVALO_FINAL: TIntegerField
      DisplayLabel = 'Fim'
      FieldName = 'INTERVALO_FINAL'
      Origin = '"NOTA_FISCAL_PRODUTOR"."INTERVALO_FINAL"'
    end
    object dtListPROPRIEDADE: TIntegerField
      DisplayLabel = 'C'#243'd. Propriedade'
      FieldName = 'PROPRIEDADE'
      Origin = '"NOTA_FISCAL_PRODUTOR"."PROPRIEDADE"'
    end
    object dtListDATA_RETIRADA: TDateField
      DisplayLabel = 'Dt. Retirada'
      FieldName = 'DATA_RETIRADA'
      Origin = '"NOTA_FISCAL_PRODUTOR"."DATA_RETIRADA"'
    end
    object dtListNOME_PROPRIEDADE: TIBStringField
      DisplayLabel = 'Propriedade'
      FieldName = 'NOME_PROPRIEDADE'
      ProviderFlags = []
      Size = 71
    end
    object dtListANO: TIntegerField
      DisplayLabel = 'Ano Base'
      FieldName = 'ANO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."ANO"'
    end
    object dtListHISTORICO: TMemoField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'HISTORICO'
      Origin = '"NOTA_FISCAL_PRODUTOR"."HISTORICO"'
      ProviderFlags = [pfInUpdate]
      BlobType = ftMemo
      Size = 8
    end
  end
  inherited dxBarManager: TdxBarManager
    Categories.ItemsVisibles = (
      2
      2)
    Categories.Visibles = (
      True
      True)
    Left = 464
    Top = 304
    DockControlHeights = (
      0
      0
      0
      26)
  end
  inherited ActionList1: TActionList
    Left = 200
    Top = 152
    inherited ActCadLookup: TAction
      OnExecute = ActCadLookupExecute
    end
    object ActGerarNFP: TAction
      Caption = 'Gerar'
      OnExecute = ActGerarNFPExecute
    end
  end
  inherited dsLink: TDataSource
    Left = 32
    Top = 364
  end
  inherited cxImageList1: TcxImageList
    FormatVersion = 1
  end
  inherited dxBarDBNavigator1: TdxBarDBNavigator
    Left = 440
    Top = 304
  end
  inherited GridPopupMenu: TcxGridPopupMenu
    Left = 504
    Top = 272
  end
  inherited SaveDialog: TSaveDialog
    Left = 488
    Top = 304
  end
  inherited ACBrEnterTab1: TACBrEnterTab
    Left = 440
    Top = 236
  end
  inherited cxPropertiesStore: TcxPropertiesStore
    Components = <
      item
        Component = ACBrEnterTab1
        Properties.Strings = (
          'AboutACBr'
          'AllowDefault'
          'EnterAsTab'
          'Name'
          'Tag')
      end
      item
        Component = cxGrid1
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = cxGridDBTableView1
        Properties.Strings = (
          'BackgroundBitmaps'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = cxGridDBTableView1CANCELADA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1DATA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1NOME_TERCEIRO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1NOTA_FISCAL
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1NOTA_FISCAL_PRODUTOR
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1NUMERO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1NUMERO1
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1TERCEIRO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = cxGridDBTableView1UTILIZADA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = Grid
        Properties.Strings = (
          'Align'
          'Anchors'
          'BevelEdges'
          'BevelInner'
          'BevelKind'
          'BevelOuter'
          'BevelWidth'
          'BorderStyle'
          'BorderWidth'
          'Constraints'
          'Cursor'
          'DragCursor'
          'DragKind'
          'DragMode'
          'DragOpening'
          'DragOpeningWaitTime'
          'Enabled'
          'Font'
          'Height'
          'HelpContext'
          'HelpKeyword'
          'HelpType'
          'Hint'
          'Left'
          'LevelTabs'
          'LookAndFeel'
          'Name'
          'ParentFont'
          'PopupMenu'
          'RootLevelOptions'
          'RootLevelStyles'
          'TabOrder'
          'TabStop'
          'Tag'
          'Top'
          'Visible'
          'Width')
      end
      item
        Component = GridDBBandedTableView2
        Properties.Strings = (
          'BackgroundBitmaps'
          'Bands'
          'DataController'
          'DateTimeHandling'
          'DragMode'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FilterBox'
          'Filtering'
          'FilterRow'
          'Name'
          'NavigatorButtons'
          'NewItemRow'
          'OptionsBehavior'
          'OptionsCustomize'
          'OptionsData'
          'OptionsSelection'
          'OptionsView'
          'PopupMenu'
          'Preview'
          'Styles'
          'Synchronization'
          'Tag')
      end
      item
        Component = GridDBBandedTableView2ANO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2CODIGO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2DATA_RETIRADA
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2HISTORICO
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2INTERVALO_FINAL
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2INTERVALO_INI
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2NOME_PROPRIEDADE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end
      item
        Component = GridDBBandedTableView2PROPRIEDADE
        Properties.Strings = (
          'AlternateCaption'
          'BestFitMaxWidth'
          'Caption'
          'DataBinding'
          'DateTimeGrouping'
          'FakeComponentLink1'
          'FakeComponentLink2'
          'FakeComponentLink3'
          'FooterAlignmentHorz'
          'GroupIndex'
          'GroupSummaryAlignment'
          'HeaderAlignmentHorz'
          'HeaderAlignmentVert'
          'HeaderGlyph'
          'HeaderGlyphAlignmentHorz'
          'HeaderGlyphAlignmentVert'
          'MinWidth'
          'Name'
          'Options'
          'Position'
          'Properties'
          'PropertiesClassName'
          'RepositoryItem'
          'SortIndex'
          'SortOrder'
          'Styles'
          'Summary'
          'Tag'
          'Visible'
          'VisibleForCustomization'
          'Width')
      end>
    Left = 512
    Top = 304
  end
  object dsPesquisaComp1: TDataSource
    DataSet = dtListNFItens
    Left = 360
    Top = 344
  end
  object dtListNFItens: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    DataSource = dsRegistro
    SQL.Strings = (
      'select nfpi.*, nf.numero, p.nome nome_terceiro'
      'from nota_fiscal_prod_itens nfpi'
      'left join produtores p on (p.codigo = nfpi.terceiro)'
      'left join nota_fiscal nf on (nf.codigo = nfpi.nota_fiscal)'
      'where nfpi.NOTA_FISCAL_PRODUTOR = :codigo')
    Left = 360
    Top = 312
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'codigo'
        ParamType = ptUnknown
      end>
    object dtListNFItensCODIGO: TIntegerField
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CODIGO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtListNFItensNUMERO: TIntegerField
      DisplayLabel = 'N'#250'mero'
      FieldName = 'NUMERO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NUMERO"'
    end
    object dtListNFItensUTILIZADA: TIBStringField
      DisplayLabel = 'Utilizada'
      FieldName = 'UTILIZADA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."UTILIZADA"'
      FixedChar = True
      Size = 1
    end
    object dtListNFItensDATA: TDateField
      DisplayLabel = 'Data'
      FieldName = 'DATA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."DATA"'
    end
    object dtListNFItensTERCEIRO: TIntegerField
      DisplayLabel = 'C'#243'd. Terceiro'
      FieldName = 'TERCEIRO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."TERCEIRO"'
    end
    object dtListNFItensNOTA_FISCAL_PRODUTOR: TIntegerField
      DisplayLabel = 'C'#243'd. NFP'
      FieldName = 'NOTA_FISCAL_PRODUTOR'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NOTA_FISCAL_PRODUTOR"'
    end
    object dtListNFItensNOME_TERCEIRO: TIBStringField
      DisplayLabel = 'Terceiro'
      FieldName = 'NOME_TERCEIRO'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
    object dtListNFItensNOTA_FISCAL: TIntegerField
      DisplayLabel = 'C'#243'd. Lancto NF'
      FieldName = 'NOTA_FISCAL'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NOTA_FISCAL"'
    end
    object dtListNFItensNUMERO1: TIBStringField
      DisplayLabel = 'Nota Fiscal'
      FieldName = 'NUMERO1'
      Origin = '"NOTA_FISCAL"."NUMERO"'
    end
    object dtListNFItensCANCELADA: TIBStringField
      DisplayLabel = 'Cancelada'
      FieldName = 'CANCELADA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."CANCELADA"'
      FixedChar = True
      Size = 1
    end
  end
  object dtNFItens: TIBDataSet
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeInsert = dtNFItensBeforeInsert
    BeforePost = dtNFItensBeforePost
    DeleteSQL.Strings = (
      'delete from nota_fiscal_prod_itens'
      'where'
      '  CODIGO = :OLD_CODIGO')
    InsertSQL.Strings = (
      'insert into nota_fiscal_prod_itens'
      
        '  (CANCELADA, CODIGO, DATA, NOTA_FISCAL, NOTA_FISCAL_PRODUTOR, N' +
        'UMERO, '
      '   TERCEIRO, UTILIZADA)'
      'values'
      
        '  (:CANCELADA, :CODIGO, :DATA, :NOTA_FISCAL, :NOTA_FISCAL_PRODUT' +
        'OR, :NUMERO, '
      '   :TERCEIRO, :UTILIZADA)')
    RefreshSQL.Strings = (
      'Select * '
      'from nota_fiscal_prod_itens '
      'where'
      '  CODIGO = :CODIGO')
    SelectSQL.Strings = (
      'select nfpi.*'
      'from nota_fiscal_prod_itens nfpi'
      'where nfpi.codigo = :codigo'
      '')
    ModifySQL.Strings = (
      'update nota_fiscal_prod_itens'
      'set'
      '  CANCELADA = :CANCELADA,'
      '  CODIGO = :CODIGO,'
      '  DATA = :DATA,'
      '  NOTA_FISCAL = :NOTA_FISCAL,'
      '  NOTA_FISCAL_PRODUTOR = :NOTA_FISCAL_PRODUTOR,'
      '  NUMERO = :NUMERO,'
      '  TERCEIRO = :TERCEIRO,'
      '  UTILIZADA = :UTILIZADA'
      'where'
      '  CODIGO = :OLD_CODIGO')
    GeneratorField.Field = 'CODIGO'
    GeneratorField.Generator = 'GEN_NOTA_FISCAL_PROD_ITENS_ID'
    GeneratorField.ApplyEvent = gamOnPost
    DataSource = dsLinkNFs
    Left = 392
    Top = 312
    object dtNFItensCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object dtNFItensNUMERO: TIntegerField
      FieldName = 'NUMERO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NUMERO"'
    end
    object dtNFItensUTILIZADA: TIBStringField
      FieldName = 'UTILIZADA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."UTILIZADA"'
      FixedChar = True
      Size = 1
    end
    object dtNFItensDATA: TDateField
      FieldName = 'DATA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."DATA"'
    end
    object dtNFItensTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."TERCEIRO"'
    end
    object dtNFItensNOTA_FISCAL_PRODUTOR: TIntegerField
      FieldName = 'NOTA_FISCAL_PRODUTOR'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NOTA_FISCAL_PRODUTOR"'
    end
    object dtNFItensNOTA_FISCAL: TIntegerField
      FieldName = 'NOTA_FISCAL'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."NOTA_FISCAL"'
    end
    object dtNFItensCANCELADA: TIBStringField
      FieldName = 'CANCELADA'
      Origin = '"NOTA_FISCAL_PROD_ITENS"."CANCELADA"'
      FixedChar = True
      Size = 1
    end
  end
  object dsRegistroComp1: TDataSource
    DataSet = dtNFItens
    Left = 392
    Top = 344
  end
  object dsLinkNFs: TDataSource
    DataSet = dtListNFItens
    Left = 376
    Top = 276
  end
  object dsPropriedade: TDataSource
    DataSet = lstPropriedade
    Left = 200
    Top = 336
  end
  object lstPropriedade: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      
        'select pp.codigo, coalesce(pp.insc_estadual,'#39#39')||'#39' ( '#39'||coalesce' +
        '(pp.nome,'#39#39')||'#39' )'#39' nome from propriedade pp'
      '')
    Left = 200
    Top = 304
    object lstPropriedadeCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PROPRIEDADE"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstPropriedadeNOME: TIBStringField
      FieldName = 'NOME'
      ProviderFlags = []
      Size = 75
    end
  end
  object dsTerceiro: TDataSource
    DataSet = lstTerceiro
    Left = 231
    Top = 334
  end
  object lstTerceiro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    SQL.Strings = (
      'select p.codigo, p.nome from produtores p')
    Left = 231
    Top = 302
    object lstTerceiroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PRODUTORES"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstTerceiroNOME: TIBStringField
      FieldName = 'NOME'
      Origin = '"PRODUTORES"."NOME"'
      Size = 50
    end
  end
  object PCD_GERA_NUMERACAO_NFP: TIBStoredProc
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    StoredProcName = 'PCD_GERA_NUMERACAO_NFP'
    Left = 481
    Top = 237
    ParamData = <
      item
        DataType = ftInteger
        Name = 'INI'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'FIM'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'NFP'
        ParamType = ptInput
      end>
  end
  object lstParametro: TIBQuery
    Database = dmPrincipal.Database
    Transaction = dmPrincipal.Transaction
    BeforeOpen = lstParametroBeforeOpen
    SQL.Strings = (
      'select * from parametros p'
      'where p.usuario = :usuario')
    Left = 440
    Top = 266
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'usuario'
        ParamType = ptUnknown
      end>
    object lstParametroCODIGO: TIntegerField
      FieldName = 'CODIGO'
      Origin = '"PARAMETROS"."CODIGO"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object lstParametroUSUARIO: TIntegerField
      FieldName = 'USUARIO'
      Origin = '"PARAMETROS"."USUARIO"'
    end
    object lstParametroDATA_MOVTO: TDateField
      FieldName = 'DATA_MOVTO'
      Origin = '"PARAMETROS"."DATA_MOVTO"'
    end
    object lstParametroOPERACAO: TIntegerField
      FieldName = 'OPERACAO'
      Origin = '"PARAMETROS"."OPERACAO"'
    end
    object lstParametroPRODUTOR: TIntegerField
      FieldName = 'PRODUTOR'
      Origin = '"PARAMETROS"."PRODUTOR"'
    end
    object lstParametroTERCEIRO: TIntegerField
      FieldName = 'TERCEIRO'
      Origin = '"PARAMETROS"."TERCEIRO"'
    end
    object lstParametroPROPRIEDADE: TIntegerField
      FieldName = 'PROPRIEDADE'
      Origin = '"PARAMETROS"."PROPRIEDADE"'
    end
    object lstParametroPRODUTO: TIntegerField
      FieldName = 'PRODUTO'
      Origin = '"PARAMETROS"."PRODUTO"'
    end
    object lstParametroANO_BASE: TIntegerField
      FieldName = 'ANO_BASE'
      Origin = '"PARAMETROS"."ANO_BASE"'
    end
  end
end
